object fConfig: TfConfig Left = 429 Top = 140 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'MindSpring Internet Configuration' ClientHeight = 421 ClientWidth = 397 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnActivate = FormActivate OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object Image11: TImage Left = 84 Top = 384 Width = 32 Height = 32 AutoSize = True Picture.Data = {} Visible = False end object Image12: TImage Left = 112 Top = 384 Width = 32 Height = 32 AutoSize = True Picture.Data = {} Visible = False end object bOK: TBitBtn Left = 148 Top = 388 Width = 75 Height = 25 Caption = 'OK' Default = True TabOrder = 0 OnClick = bOKClick Glyph.Data = { F2010000424DF201000000000000760000002800000024000000130000000100 0400000000007C01000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333334433333 3333333333388F3333333333000033334224333333333333338338F333333333 0000333422224333333333333833338F33333333000033422222243333333333 83333338F3333333000034222A22224333333338F33F33338F33333300003222 A2A2224333333338F383F3338F33333300003A2A222A222433333338F8333F33 38F33333000034A22222A22243333338833333F3338F333300004222A2222A22 2433338F338F333F3338F3330000222A3A2224A22243338F3838F338F3338F33 0000A2A333A2224A2224338F83338F338F3338F300003A33333A2224A2224338 333338F338F3338F000033333333A2224A2243333333338F338F338F00003333 33333A2224A2233333333338F338F83300003333333333A2224A333333333333 8F338F33000033333333333A222433333333333338F338F30000333333333333 A224333333333333338F38F300003333333333333A223333333333333338F8F3 000033333333333333A3333333333333333383330000} NumGlyphs = 2 end object bCancel: TBitBtn Left = 231 Top = 388 Width = 75 Height = 25 TabOrder = 1 Kind = bkCancel end object bApply: TBitBtn Left = 314 Top = 388 Width = 75 Height = 25 Caption = '&Apply' Enabled = False TabOrder = 2 OnClick = bApplyClick Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 0400000000006801000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333330000333333333333333333333333F33333333333 00003333344333333333333333388F3333333333000033334224333333333333 338338F3333333330000333422224333333333333833338F3333333300003342 222224333333333383333338F3333333000034222A22224333333338F338F333 8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224 33333338F83338F338F33333000033A33333A222433333338333338F338F3333 0000333333333A222433333333333338F338F33300003333333333A222433333 333333338F338F33000033333333333A222433333333333338F338F300003333 33333333A222433333333333338F338F00003333333333333A22433333333333 3338F38F000033333333333333A223333333333333338F830000333333333333 333A333333333333333338330000333333333333333333333333333333333333 0000} NumGlyphs = 2 end object gControlPages: TPageControl Left = 8 Top = 8 Width = 381 Height = 373 ActivePage = gConnectPage HotTrack = True TabOrder = 3 object gConnectPage: TTabSheet Caption = 'Connection' object GroupBox6: TGroupBox Left = 12 Top = 8 Width = 349 Height = 209 Caption = ' Connection Type ' TabOrder = 0 object Image6: TImage Left = 12 Top = 20 Width = 32 Height = 32 AutoSize = True Enabled = False Picture.Data = {} end object Label29: TLabel Left = 12 Top = 85 Width = 39 Height = 13 Caption = 'User ID:' FocusControl = eUser end object Label30: TLabel Left = 12 Top = 119 Width = 40 Height = 13 Caption = 'Number:' end object xNetwork: TRadioButton Left = 58 Top = 20 Width = 153 Height = 17 Caption = 'Network &Connection' TabOrder = 0 OnClick = xDUNClick end object xDUN: TRadioButton Left = 58 Top = 40 Width = 113 Height = 17 Caption = '&Dial-Up Networking:' Checked = True TabOrder = 1 TabStop = True OnClick = xDUNClick end object cDUN: TComboBox Left = 180 Top = 36 Width = 154 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 2 OnChange = xDUNClick end object bNew: TBitBtn Left = 137 Top = 164 Width = 75 Height = 25 Caption = '&New Number' TabOrder = 7 OnClick = bNewClick end object eUser: TEdit Left = 60 Top = 81 Width = 193 Height = 21 TabStop = False Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 16 ParentFont = False ReadOnly = True TabOrder = 3 end object bEUser: TButton Left = 260 Top = 80 Width = 75 Height = 21 Caption = 'Edit &User Info' TabOrder = 4 OnClick = bEUserClick end object eNumber: TEdit Left = 60 Top = 115 Width = 193 Height = 21 TabStop = False Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 5 end object bENum: TButton Left = 260 Top = 116 Width = 75 Height = 21 Caption = '&Edit Number' TabOrder = 6 OnClick = bENumClick end end object GroupBox7: TGroupBox Left = 12 Top = 232 Width = 349 Height = 97 Caption = ' Modem Information ' TabOrder = 1 object Image7: TImage Left = 12 Top = 20 Width = 32 Height = 32 AutoSize = True Picture.Data = {} end object Label16: TLabel Left = 52 Top = 20 Width = 273 Height = 13 AutoSize = False Caption = 'Click on the button below to configure your modem.' WordWrap = True end object bModem: TBitBtn Left = 137 Top = 56 Width = 75 Height = 25 Caption = '&Modem' TabOrder = 0 OnClick = bModemClick NumGlyphs = 2 end end end object gAcctPage: TTabSheet Caption = 'Account' OnEnter = eMailPassExit object GroupBox1: TGroupBox Left = 12 Top = 8 Width = 349 Height = 189 Caption = ' Personal Information ' TabOrder = 0 object Label1: TLabel Left = 48 Top = 36 Width = 34 Height = 13 Caption = ' &Name:' FocusControl = eName end object Image1: TImage Left = 12 Top = 20 Width = 32 Height = 32 AutoSize = True Picture.Data = {} end object Label31: TLabel Left = 48 Top = 64 Width = 23 Height = 13 Caption = ' &Org:' FocusControl = eOrg end object Label5: TLabel Left = 48 Top = 100 Width = 39 Height = 13 Caption = 'Mailbox:' FocusControl = eMail end object Label3: TLabel Left = 48 Top = 132 Width = 60 Height = 13 Caption = '2nd Mailbox:' end object eName: TEdit Left = 116 Top = 32 Width = 217 Height = 21 TabOrder = 0 OnChange = eNameChange end object eMail2: TEdit Left = 116 Top = 128 Width = 181 Height = 21 TabStop = False Color = clBtnFace MaxLength = 16 ReadOnly = True TabOrder = 5 OnChange = eNameChange end object xMail2: TCheckBox Left = 116 Top = 160 Width = 133 Height = 17 Caption = 'Check &mail on connect' TabOrder = 4 OnClick = eNameChange end object eOrg: TEdit Left = 116 Top = 64 Width = 217 Height = 21 TabOrder = 1 OnChange = eNameChange end object eMail: TEdit Left = 116 Top = 96 Width = 181 Height = 21 TabStop = False Color = clBtnFace MaxLength = 16 ReadOnly = True TabOrder = 2 OnChange = eNameChange end object bMail: TBitBtn Left = 304 Top = 96 Width = 30 Height = 21 Caption = '&Edit' TabOrder = 3 OnClick = bMailClick NumGlyphs = 2 end object bMail2: TBitBtn Left = 304 Top = 128 Width = 30 Height = 21 Caption = 'E&dit' TabOrder = 6 OnClick = bMail2Click NumGlyphs = 2 end end object GroupBox2: TGroupBox Left = 12 Top = 208 Width = 349 Height = 121 Caption = ' Account Management ' TabOrder = 1 object Image2: TImage Left = 12 Top = 20 Width = 32 Height = 32 AutoSize = True Picture.Data = {} end object Label8: TLabel Left = 56 Top = 20 Width = 265 Height = 52 Caption = 'You may make changes to your mailboxes, forward your mail, set a' + ' vacation message and sign up for the Spaminator from the Accoun' + 't Management pages. Click on the button below for Account Manag' + 'ement.' WordWrap = True end object bAcct: TBitBtn Left = 137 Top = 84 Width = 75 Height = 25 Caption = 'A&cct Mgt' TabOrder = 0 OnClick = bAcctClick NumGlyphs = 2 end end end object gToolPage: TTabSheet Caption = 'Toolbar' OnEnter = gToolPageEnter object GroupBox3: TGroupBox Left = 12 Top = 8 Width = 349 Height = 321 Caption = ' Configure Applications ' TabOrder = 0 object Image3: TImage Left = 12 Top = 20 Width = 32 Height = 32 AutoSize = True Picture.Data = {} end object Label9: TLabel Left = 52 Top = 20 Width = 270 Height = 26 Caption = 'Each of the buttons below represents a tool panel button that ca' + 'n be configured to run an application.' WordWrap = True end object Label12: TLabel Left = 12 Top = 116 Width = 27 Height = 13 Caption = 'T&ype:' FocusControl = cType end object Label13: TLabel Left = 12 Top = 180 Width = 55 Height = 13 Caption = 'A&pplication:' FocusControl = eApp end object Label15: TLabel Left = 12 Top = 244 Width = 36 Height = 13 Caption = '&Start in:' FocusControl = eStart end object bApp1: TSpeedButton Left = 10 Top = 64 Width = 40 Height = 40 GroupIndex = 1 Down = True Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Margin = 1 ParentFont = False OnClick = bApp1Click end object bApp2: TSpeedButton Tag = 1 Left = 67 Top = 64 Width = 40 Height = 40 GroupIndex = 1 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Margin = 1 ParentFont = False OnClick = bApp1Click end object bApp3: TSpeedButton Tag = 2 Left = 124 Top = 64 Width = 40 Height = 40 GroupIndex = 1 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Margin = 1 ParentFont = False OnClick = bApp1Click end object bApp4: TSpeedButton Tag = 3 Left = 182 Top = 64 Width = 40 Height = 40 GroupIndex = 1 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Margin = 1 ParentFont = False OnClick = bApp1Click end object bApp5: TSpeedButton Tag = 4 Left = 239 Top = 64 Width = 40 Height = 40 GroupIndex = 1 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Margin = 1 ParentFont = False OnClick = bApp1Click end object bApp6: TSpeedButton Tag = 5 Left = 296 Top = 64 Width = 40 Height = 40 GroupIndex = 1 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Margin = 1 ParentFont = False OnClick = bApp1Click end object Label11: TLabel Left = 12 Top = 148 Width = 31 Height = 13 Caption = '&Name:' end object b1: TSpeedButton Left = 200 Top = 312 Width = 25 Height = 25 Caption = '&1' Visible = False OnClick = b1Click end object b2: TSpeedButton Left = 224 Top = 312 Width = 25 Height = 25 Caption = '&2' Visible = False OnClick = b2Click end object b3: TSpeedButton Left = 248 Top = 312 Width = 25 Height = 25 Caption = '&3' Visible = False OnClick = b3Click end object b4: TSpeedButton Left = 272 Top = 312 Width = 25 Height = 25 Caption = '&4' Visible = False OnClick = b4Click end object b5: TSpeedButton Left = 296 Top = 312 Width = 25 Height = 25 Caption = '&5' Visible = False OnClick = b5Click end object b6: TSpeedButton Left = 320 Top = 312 Width = 25 Height = 25 Caption = '&6' Visible = False OnClick = b6Click end object Label32: TLabel Left = 12 Top = 212 Width = 56 Height = 13 Caption = 'Parameters:' FocusControl = eParms end object LabelAS: TLabel Left = 132 Top = 281 Width = 14 Height = 13 Caption = 'as:' Visible = False end object iApp1: TImage Left = 14 Top = 68 Width = 32 Height = 32 Enabled = False end object iApp2: TImage Left = 71 Top = 68 Width = 32 Height = 32 Enabled = False end object iApp3: TImage Left = 128 Top = 68 Width = 32 Height = 32 Enabled = False end object iApp4: TImage Left = 186 Top = 68 Width = 32 Height = 32 Enabled = False end object iApp5: TImage Left = 243 Top = 68 Width = 32 Height = 32 Enabled = False end object iApp6: TImage Left = 300 Top = 68 Width = 32 Height = 32 Enabled = False end object cType: TComboBox Left = 72 Top = 116 Width = 113 Height = 21 Style = csDropDownList ItemHeight = 0 TabOrder = 0 OnChange = cTypeChange end object eDesc: TEdit Left = 72 Top = 148 Width = 265 Height = 21 MaxLength = 128 TabOrder = 1 OnChange = eDescChange OnExit = eDescExit end object eApp: TEdit Left = 72 Top = 180 Width = 229 Height = 21 TabOrder = 2 OnChange = eAppChange OnExit = eAppExit end object eStart: TEdit Left = 72 Top = 244 Width = 265 Height = 21 TabOrder = 6 OnChange = eStartChange end object bFind: TBitBtn Left = 308 Top = 180 Width = 30 Height = 21 Caption = '&Find' TabOrder = 3 OnClick = bFindClick NumGlyphs = 2 end object xConfig: TCheckBox Left = 12 Top = 280 Width = 121 Height = 17 Caption = '&Co&nfigure Application as' Enabled = False State = cbChecked TabOrder = 7 OnClick = xConfigClick end object cApp: TComboBox Left = 148 Top = 280 Width = 189 Height = 21 Style = csDropDownList Enabled = False ItemHeight = 0 TabOrder = 8 Visible = False end object eParms: TEdit Left = 72 Top = 212 Width = 229 Height = 21 TabStop = False Color = clBtnFace ReadOnly = True TabOrder = 4 OnChange = eParmsChange OnExit = eAppExit end object bParms: TBitBtn Left = 308 Top = 212 Width = 30 Height = 21 Caption = '&Edit' TabOrder = 5 OnClick = bParmsClick NumGlyphs = 2 end end end object gChannelPage: TTabSheet Caption = 'Headlines' object GroupBox5: TGroupBox Left = 12 Top = 84 Width = 349 Height = 245 Caption = ' Headlines ' TabOrder = 1 object Image5: TImage Left = 12 Top = 20 Width = 32 Height = 32 AutoSize = True Picture.Data = {} end object Label17: TLabel Left = 56 Top = 20 Width = 277 Height = 13 AutoSize = False Caption = 'Select the headlines you wish to include on your desktop:' WordWrap = True end object Label18: TLabel Left = 88 Top = 52 Width = 17 Height = 13 Caption = '1st:' end object Label19: TLabel Left = 88 Top = 76 Width = 21 Height = 13 Caption = '2nd:' end object Label20: TLabel Left = 88 Top = 100 Width = 18 Height = 13 Caption = '3rd:' end object Label21: TLabel Left = 88 Top = 124 Width = 18 Height = 13 Caption = '4th:' end object Label22: TLabel Left = 88 Top = 148 Width = 18 Height = 13 Caption = '5th:' end object Label23: TLabel Left = 88 Top = 172 Width = 18 Height = 13 Caption = '6th:' end object Label24: TLabel Left = 88 Top = 196 Width = 18 Height = 13 Caption = '7th:' end object LabelC1: TLabel Left = 116 Top = 50 Width = 3 Height = 16 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object LabelC2: TLabel Left = 116 Top = 74 Width = 3 Height = 16 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object LabelC3: TLabel Left = 116 Top = 98 Width = 3 Height = 16 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object LabelC4: TLabel Left = 116 Top = 122 Width = 3 Height = 16 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object LabelC5: TLabel Left = 116 Top = 146 Width = 3 Height = 16 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object LabelC6: TLabel Left = 116 Top = 170 Width = 3 Height = 16 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object LabelC7: TLabel Left = 116 Top = 194 Width = 3 Height = 16 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label14: TLabel Left = 88 Top = 220 Width = 18 Height = 13 Caption = '8th:' end object LabelC8: TLabel Left = 116 Top = 218 Width = 3 Height = 16 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object cChannel1: TComboBox Left = 116 Top = 48 Width = 145 Height = 21 Style = csDropDownList ItemHeight = 0 TabOrder = 0 Visible = False OnChange = eNameChange end object cChannel2: TComboBox Left = 116 Top = 72 Width = 145 Height = 21 Style = csDropDownList ItemHeight = 0 TabOrder = 1 Visible = False OnChange = eNameChange end object cChannel3: TComboBox Left = 116 Top = 96 Width = 145 Height = 21 Style = csDropDownList ItemHeight = 0 TabOrder = 2 Visible = False OnChange = eNameChange end object cChannel4: TComboBox Left = 116 Top = 120 Width = 145 Height = 21 Style = csDropDownList ItemHeight = 0 TabOrder = 3 Visible = False OnChange = eNameChange end object cChannel5: TComboBox Left = 116 Top = 144 Width = 145 Height = 21 Style = csDropDownList ItemHeight = 0 TabOrder = 4 Visible = False OnChange = eNameChange end object cChannel6: TComboBox Left = 116 Top = 168 Width = 145 Height = 21 Style = csDropDownList ItemHeight = 0 TabOrder = 5 Visible = False OnChange = eNameChange end object cChannel7: TComboBox Left = 116 Top = 192 Width = 145 Height = 21 Style = csDropDownList ItemHeight = 0 TabOrder = 6 Visible = False OnChange = eNameChange end object cChannel8: TComboBox Left = 116 Top = 216 Width = 145 Height = 21 Style = csDropDownList ItemHeight = 0 TabOrder = 7 Visible = False OnChange = eNameChange end end object GroupBox9: TGroupBox Left = 12 Top = 8 Width = 349 Height = 65 Caption = ' Location ' TabOrder = 0 object Image9: TImage Left = 12 Top = 20 Width = 32 Height = 32 AutoSize = True Picture.Data = {} end object Label27: TLabel Left = 52 Top = 20 Width = 51 Height = 13 Caption = '&City, State:' FocusControl = cLocation end object cLocation: TComboBox Left = 108 Top = 16 Width = 149 Height = 21 Style = csDropDownList ItemHeight = 0 Items.Strings = ( 'Atlanta, GA' 'Harrisburg, PA') Sorted = True TabOrder = 0 OnChange = eNameChange end object bAdd: TBitBtn Left = 264 Top = 16 Width = 75 Height = 25 Caption = 'A&dd' TabOrder = 1 OnClick = bAddClick end end end object gAdvPage: TTabSheet Caption = 'Advanced' object GroupBox8: TGroupBox Left = 12 Top = 8 Width = 349 Height = 81 Caption = ' Logging ' TabOrder = 0 object Image8: TImage Left = 12 Top = 20 Width = 32 Height = 32 AutoSize = True Picture.Data = {} end object Label25: TLabel Left = 52 Top = 20 Width = 70 Height = 13 Caption = 'Logging &Level:' FocusControl = cLevel end object Label26: TLabel Left = 52 Top = 48 Width = 66 Height = 13 Caption = 'Log &Filename:' FocusControl = eFile end object cLevel: TComboBox Left = 128 Top = 16 Width = 205 Height = 21 Style = csDropDownList ItemHeight = 13 Items.Strings = ( 'Log errors' 'Log errors and warnings' 'Log everything') TabOrder = 0 OnChange = eNameChange end object eFile: TEdit Left = 128 Top = 44 Width = 157 Height = 21 TabOrder = 1 OnChange = eNameChange OnExit = eFileExit end object bShLog: TBitBtn Left = 292 Top = 44 Width = 41 Height = 21 Caption = '&Show' TabOrder = 2 OnClick = bShLogClick NumGlyphs = 2 end end object GroupBox10: TGroupBox Left = 12 Top = 176 Width = 349 Height = 65 Caption = ' Desktop ' TabOrder = 2 object Image10: TImage Left = 12 Top = 20 Width = 32 Height = 32 AutoSize = True Picture.Data = {} end object xIcon: TCheckBox Left = 60 Top = 20 Width = 213 Height = 17 Caption = 'Show MindSpring Internet Desktop &Icon' State = cbChecked TabOrder = 0 OnClick = eNameChange end end object GroupBox4: TGroupBox Left = 12 Top = 100 Width = 349 Height = 65 Caption = ' Update Method ' TabOrder = 1 object Image4: TImage Left = 12 Top = 20 Width = 32 Height = 32 AutoSize = True Picture.Data = {} end object rUpCon: TRadioButton Left = 98 Top = 20 Width = 153 Height = 17 Caption = '&Update when Connecting' TabOrder = 0 OnClick = eNameChange end object rUpMan: TRadioButton Left = 98 Top = 40 Width = 113 Height = 17 Caption = 'Update &Manually' Checked = True TabOrder = 1 TabStop = True OnClick = eNameChange end end object GroupBox11: TGroupBox Left = 12 Top = 252 Width = 349 Height = 61 Caption = ' External Configuration Modules ' TabOrder = 3 Visible = False object Image13: TImage Left = 12 Top = 20 Width = 32 Height = 32 AutoSize = True Picture.Data = {} end object Label2: TLabel Left = 52 Top = 24 Width = 29 Height = 13 Caption = '&Go to:' FocusControl = cPages end object cPages: TComboBox Left = 88 Top = 20 Width = 185 Height = 21 Style = csDropDownList ItemHeight = 13 Items.Strings = ( 'Log errors' 'Log errors and warnings' 'Log everything') TabOrder = 0 OnChange = cPagesChange end object bConfig: TBitBtn Left = 280 Top = 20 Width = 57 Height = 21 Caption = '&Configure' Enabled = False TabOrder = 1 OnClick = bConfigClick NumGlyphs = 2 end end end end object BitBtn4: TBitBtn Left = 8 Top = 388 Width = 75 Height = 25 TabOrder = 4 OnClick = BitBtn4Click Kind = bkHelp end object fOpen: TOpenDialog DefaultExt = 'exe' Filter = 'Applications (*.exe)|*.exe|All files (*.*)|*.*' Options = [ofHideReadOnly, ofExtensionDifferent, ofPathMustExist, ofFileMustExist] Left = 340 Top = 4 end object zClone: TFnugryCloneControl Action = clcNone TerminationStyle = tsAppTerminate MaxInstance = 1 Left = 368 Top = 4 end end